# load data
load("qualcode.RData")


# estimate correlations
## assimilability + vulnerability
cor.test(qualcode$assimilability, qualcode$vulnerability, na.rm = TRUE)

## assimilability + lack 
cor.test(qualcode$assimilability, qualcode$`lack deservingness`, na.rm = TRUE)

## vulnerability + lack
cor.test(qualcode$vulnerability, qualcode$`lack deservingness`, na.rm = TRUE)

